object Form1: TForm1 Left = 57 Top = 39 Width = 550 Height = 343 Caption = 'Demo for TMCEnhancedListBox' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] PixelsPerInch = 96 Position = poScreenCenter OnCreate = FormCreate OnDestroy = FormDestroy TextHeight = 15 object Label3: TLabel Left = 16 Top = 144 Width = 62 Height = 15 Caption = 'Department' end object Label4: TLabel Left = 88 Top = 144 Width = 38 Height = 15 Caption = 'Region' end object Label5: TLabel Left = 211 Top = 144 Width = 72 Height = 15 Alignment = taRightJustify Caption = 'Sold' end object Label6: TLabel Left = 312 Top = 160 Width = 197 Height = 45 Caption = 'This demo program contains one ownerdrawn listbox (above) and on' + 'e regular, prefilled listbox.' WordWrap = True end object Panel1: TPanel Left = 8 Top = 8 Width = 529 Height = 129 Caption = 'Panel1' TabOrder = 0 object Label1: TLabel Left = 94 Top = 7 Width = 31 Height = 15 Caption = 'Name' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 320 Top = 7 Width = 24 Height = 15 Caption = 'Size' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False end object MCEnhancedListBox1: TMCEnhancedListBox Left = 8 Top = 24 Width = 513 Height = 97 ItemHeight = 16 Style = lbOwnerDrawFixed TabOrder = 0 OnDrawItem = MCEnhancedListBox1DrawItem Label1 = Label1 Label2 = Label2 Separator = #9 end end object MCEnhancedListBox2: TMCEnhancedListBox Left = 16 Top = 160 Width = 289 Height = 145 ItemHeight = 16 Items.Strings = ( 'Fruit,South,93923' 'Snacks,Silicon Valley,1592934' 'Aspirin,Redmond,91592934' 'Dope,Washington,91592934') TabOrder = 1 Label1 = Label3 Label2 = Label4 Label3 = Label5 Separator = ',' end end